;*******************************************************************
;* Clothing - general procedures
;*******************************************************************
[flag-stripped]
    setProcedure=StrippedSet
    
[flag-slutty]
    setProcedure=sluttySet
    expireProcedure=stripNow

[flag-covered]
    setProcedure=coveredSet
    expireProcedure=stripNow

[procedure-strippedSet]
; Merits per hour modifier for clothing
    set#=#clothingMPH,#strippedWorth
    
[procedure-sluttySet]
; Merits per hour modifier for clothing
    set#=#clothingMPH,#sluttyWorth
    
[procedure-coveredSet]
; Merits per hour modifier for clothing
    set#=#clothingMPH,#coveredWorth
   
[procedure-StripNow]
    setFlag=stripped
    removeFlag=covered
    removeFlag=slutty
    clothing=home
    newSubStatus=dressing

[procedure-dressing]
    newSubStatus=Dressing

[procedure-askHome]
    question=stayingHome
    
[question-StayingHome]
	Text=Are you staying home?
	?Yes=StayingHome
	?No=Leaving

[procedure-StayingHome]
    setFLag=homeClothing
    
    ;both clothing and bondage are considered for merits accumulation
    set#=#clothingConsidered,1
    set#=#bondageConsidered,1
    
    ;for some popus and procedures
    removeFlag=naked
    removeflag=cuffs
    
	clothing=home
    newSubStatus=Dressing

[procedure-Leaving]
    if=homeClothing
    ;neither clothing nor bondage are considered for merits accumulation
    set#=#clothingConsidered,0
    set#=#bondageConsidered,0
    ;remove extra bondage
    removeFlag=extraBondage
    set#=#extraBondageMPM,0
    
    ;for some popus and procedures
    removeFlag=homeClothing
    removeFlag=naked
    removeflag=cuffs
    
	clothing=vanilla
    newSubStatus=Dressing

[procedure-CheckClothingOn]
	notif=#ClothCheck=0
	PunishMessage={$zzMaster:} You are supposed to wear {$zzCheck}, {$zzSubname}! Now go and get it fixed!
    Punish=20
    AddMerit=-10
    
[procedure-CheckClothingOff]
	notif=#ClothCheck=0
	PunishMessage={$zzMaster:} You are not pemitted to wear {$zzCheck}, {$zzSubname}! Now go and get it fixed!
    Punish=20
    AddMerit=-10

;*******************************************************************
;* Home Procedure
;*******************************************************************
[Clothing-Home]
	Askable=0
    selectable=all
	Change=daily
    set=stripped
    set=slutty
    set=covered
    set=noUnderwear
    set=bondage


;*******************************************************************
;* Vanilla Procedure
;*******************************************************************
[Clothing-vanilla]
	Askable=0
	Change=daily
    select=all
    option=socially appropiate outfit
    set=noUnderWear


;*******************************************************************
;* Sleep Procedure
;*******************************************************************
[Clothing-Sleep]
	Askable=0
    selectable=all
	Change=daily
    option=%1
        checkoff=clothes
    set=bondage
    
    
;*******************************************************************
;* General Sets
;*******************************************************************
[set-stripped]
    if=stripped
    select=All
    option=strip bare
        checkoff=Clothes
        
[set-slutty]
    if=slutty
    select=All
    choice=new
        option=slave livery
            check=slave livery
    choice=new
        option=sandals
            check=sandals
    checkoff=outfit
    checkoff=underwear
   
[set-noUnderwear]
    if=noUnderwear
    option=No underwear for you today
        checkOff=underwear
   
[set-covered]
    if=covered
    select=All
    option=cover up your body
    option=top
        check=top
    option=bottom
        check=bottom
    set=underWear
    set=shoes
    

                
;*******************************************************************
;* Clothing Sets - Shoes
;*******************************************************************
[set-Shoes]
    notif=stripped
	Select=All
		Choice=New
            option=shoes on
                Check=shoes
			Option=barefoot
				Checkoff=shoes
			Option=*

;*******************************************************************
;* Clothing Sets - Underwear
;*******************************************************************
[set-Underwear]
    notif=noUnderwear
    notif=stripped
	Select=All
		Choice=New
			Option=No Underwear
                checkoff=underwear
			Option=Wear Underwear
                notif=noUnderwear
				Check=underwear
			Option=underwear if you wish
                notif=noUnderwear
    
    


    
;*******************************************************************
;* Clothing Sets - bondage: See Separate file
;*******************************************************************   